home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / bbs / wwbbs26.lha / WWBBSDoors / cybmods2.lha / userbios.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-12-29  |  1.4 KB  |  58 lines
  1. /* User Biographies v1.1 By Instigist, Snake Pit BBS 310-863-3754 */
  2.  
  3. options results
  4. BBSIDENTIFY USER
  5. temp = result
  6. parse var temp '"'id'" "'locat'" 'ans
  7. id = upper(id)
  8. if exists('doors:bios/'id) then call oldbio
  9. biofile:
  10. print " "
  11. print "Filling Out User Biography For "id"..."
  12. print " "
  13. prompt 60 'NORMAL' 'Computer Setup(1 line): '
  14. compset = result
  15. prompt 60 'NORMAL' 'Hobbies(1 line): '
  16. hobbies = result
  17. print "You Have 5 Lines To Describe Yourself For The Other Users:"
  18. do i = 1 to 5
  19. prompt 75 'NORMAL' ''i'>'
  20. desc.i = result
  21. end
  22. do i = 1 to 5
  23. if desc.i = 'RESULT' then desc.i = ''
  24. end
  25. print " "
  26. print "Writing Biography..."
  27. open(file,'doors:bios/'id,'W')
  28. writeln(file,'Handle    :'id)
  29. writeln(file,'Location  :'locat)
  30. writeln(file,'Computer  :'compset)
  31. writeln(file,'Hobbies   :'hobbies)
  32. writeln(file,'')
  33. do i = 1 to 5
  34. writeln(file,desc.i)
  35. end
  36. print " "
  37. prompt 1 'YESNO' 'Would You Like To View Other Bios(Y/n)? '
  38. ans = result
  39. if ans = '###PANIC' then call death
  40. if ans = 'N' then call outbios
  41. oldbio:
  42. print " "
  43. prompt 20 'NORMAL' 'View Which Users Biography? '
  44. ans = upper(result)
  45. if exists('doors:bios/'ans) then call viewbio
  46. print ''
  47. print 'That User Doesnt Exist/Hasnt Filed A Biography...'
  48. call outbios
  49. viewbio:
  50. SENDFILE 'doors:bios/'ans 
  51. outbios:
  52. print ""
  53. prompt 1 'NOYES' 'Would You Like To Re-Edit Your Bio(y/N)? '
  54. ans = upper(result)
  55. if ans = 'Y' then call biofile
  56. death:
  57. exit
  58.